home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / listing 05.ki (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  122 lines
  1. 5 GOTO100
  2. 10 RESTORE
  3. 20 FORI=1TON:READS$:NEXT
  4. 30 RETURN
  5. 100 DIMS%(38),R%(38),N%(38)
  6. 110 N1=38:N2=12:N3=118
  7. 120 N=N1+N2+N3:GOSUB10
  8. 130 FORX=1TON1
  9. 140 READS%(X),L:R%(X)=S%(X):N%(X)=S%(X)+L-1:NEXT
  10. 160 PRINT"HI, I AM ELIZA TELL ME YOUR PROBLEM
  11. 170 [133]I$:I$[178]" "[170]I$[170]" "
  12. 200 [129]L[178]1[164][195](I$)
  13. 210 [139][202](I$,L,1)[178]"'"[167]I$[178][200](I$,L[171]1)[170][201](I$,[195](I$)[171]L):[137]210
  14. 220 [130]
  15. 230 [139]I$[178]P$[167][153]"PLEASE DON'T REPEAT YOURSELF":[137]170
  16. 280 [140]:S[178]0
  17. 300 [129]K[178]1[164]N1
  18. 305 [139]S[177]0[167]340
  19. 310 [135]K$
  20. 320 [129]A[178]1[164][195](I$)[171][195](K$)
  21. 325 [139][202](I$,A,[195](K$))[178]K$[167]S[178]K:T[178]A:F$[178]K$
  22. 330 [130]
  23. 340 A[178]0:[130]
  24. 365 [139]S[177]0[167]K[178]S:L[178]T:[137]400
  25. 370 K[178]N1:[137]560
  26. 400 N[178]N1
  27. 405 [141]10
  28. 410 C$[178]" "[170][201](I$,[195](I$)[171][195](F$)[171]L[170]1)
  29. 420 [129]X[178]1[164]N2[173]2:[135]S$,R$
  30. 440 [129]L[178]1[164][195](C$)
  31. 450 [139]L[170][195](S$)[177][195](C$)[167]510
  32. 480 [139][202](C$,L,[195](S$))[179][177]S$[167]510
  33. 490 C$[178][200](C$,L[171]1)[170]R$[170][201](C$,[195](C$)[171]L[171][195](S$)[170]1):L[178]L[170][195](R$)
  34. 500 [137]540
  35. 510 [139]L[170][195](R$)[177][195](C$)[167]540
  36. 520 [139][202](C$,L,[195](R$))[179][177]R$[167]540
  37. 530 C$[178][200](C$,L[171]1)[170]S$[170][201](C$,[195](C$)[171]L[171][195](R$)[170]1)
  38. 540 [130]:[130]
  39. 555 [139][202](C$,2,1)[178]" "[167]C$[178][201](C $,[195](C$)[171]1)
  40. 560 N[178]N1[170]N2
  41. 570 [141]10
  42. 580 [129]X[178]1[164]R%(K):[135]F$:[130]X
  43. 590 R%(K)[178]R%(K)[170]1:[139]R%(K)[177]N%(K)[167]R%(K)[178]S%(K)
  44. 600 [139][201](F$,1)[179][177]"*"[167][153]F$:P$[178]I$:[137]170
  45. 620 [153][200](F$,[195](F$)[171]1);C$:[137]170
  46. 1050 [131]"CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL","WHY DONT YOU"
  47. 1060 [131]"WHY CANT I","ARE YOU","I CANT","I AM","IM ","YOU ","I WANT","WHAT"
  48. 1070 [131]"HOW","WHO","WHERE","WHEN","WHY","NAME","CAUSE","SORRY","DRAEM","HELLO"
  49. 1080 [131]"HI ","MAYBE"," NO","YOUR","ALWAYS","THINK","ALIKE","YES","FRIEND"
  50. 1090 [131]"COMPUTER","ELIZA","MONEY","NOKEYFOUND"
  51. 1230 [131]" ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY "," IVE "
  52. 1235 [131]" YOUVE "," IM "," YOURE "
  53. 1330 [131]"DON'T YOU BELIEVE THAT I CAN*"
  54. 1340 [131]"PERHAPS YOU WOULD LIKE TO BE ABLE TO*"
  55. 1350 [131]"YOU WANT ME TO BE ABLE TO*"
  56. 1360 [131]"PERHAPS YOU DON'T WANT TO*","DO YOU WANT TO BE ABLE TO*"
  57. 1365 [131]"WHAT MAKES YOU THINK I AM*","DOES IT PLEASE YOU TO BELIEVE I AM*"
  58. 1390 [131]"PERHAPS YOU WOULD LIKE TO BE*"
  59. 1400 [131]"DO YOU SOMETIMES WISH YOU WERE*"
  60. 1410 [131]"DON'T YOU REALLY*","WHY DON'T YOU*","DO YOU WISH TO BE ABLE TO*"
  61. 1440 [131]"DOES THAT TROUBLE YOU?","TELL ME MORE ABOUT SUCH FEELINGS."
  62. 1460 [131]"DO YOU OFTEN FEEL*","DO YOU ENJOY FEELING*"
  63. 1480 [131]"DO YOU REALLY BELIEVE I DON'T*","PERHAPS IN GOOD TIME I WILL*"
  64. 1500 [131]"DO YOU WANT ME TO*","DO YOU THINK YOU SHOULD BE ABLE TO*"
  65. 1520 [131]"WHY CAN'T YOU*","WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*"
  66. 1540 [131]"WOULD YOU PREFER IF I WHERE NOT*","PERHAPS IN YOUR FANTASIES I AM*"
  67. 1560 [131]"HOW DO YOU KNOW YOU CAN'T*","HAVE YOU TRIED?","PERHAPS YOU CAN NOW*"
  68. 1590 [131]"DID YOU COME TO ME BECAUSE YOU ARE*","HOW LONG HAVE YOU BEEN*"
  69. 1610 [131]"DO YOU BELIEVE IT IS NORMAL TO BE*","DO YOU ENJOY BEING*"
  70. 1630 [131]"WE WERE DISCUSSING YOU-- NOT ME.","OH, I*"
  71. 1650 [131]"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"
  72. 1660 [131]"WHAT WOULD IT MEAN TO YOU IF YOU GOT*","WHY DO YOU WANT*"
  73. 1680 [131]"SUPPOSE YOU SOON GOT*","WHAT IF YOU NEVER GOT*"
  74. 1700 [131]"I SOMETIMES ALSO WANT*","WHY DO YOU ASK?"
  75. 1720 [131]"DOES THAT QUESTION INTEREST YOU?"
  76. 1730 [131]"WHAT ANSWER WOULD PLEASE YOU THE MOST?"
  77. 1740 [131]"WHAT DO YOU THINK?","ARE SUCH QUESTIONS IN YOUR MIND OFTEN?"
  78. 1760 [131]"WHAT IS THAT YOU REALLY WANT TO KNOW?","HAVE YOU ASKED ANYONE ELSE?"
  79. 1780 [131]"HAVE YOU ASKED SUCH QUESTIONS BEFORE?"
  80. 1790 [131]"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
  81. 1800 [131]"NAMES DON'T INTEREST ME.","I DON'T CARE ABOUT NAMES-- PLEASE GO ON."
  82. 1820 [131]"IS THAT THE REAL REASON?","DON'T ANY OTHER REASONS COME TO MIND?"
  83. 1840 [131]"DOES THAT REASON EXPLAIN ANYTHING ELSE"
  84. 1850 [131]"WHAT OTHER REASONS MIGHT THERE BE?","PLEASE DON'T APOLOGIZE!"
  85. 1870 [131]"APOLOGIES ARE NOT NECESSARY."
  86. 1880 [131]"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?","DON'T BE SO DEFENSIVE!"
  87. 1900 [131]"WHAT DOES THAT DREAM SUGGEST YOU?","DO YOU DREAM OFTEN?"
  88. 1920 [131]"WHAT PERSONS APPEAR IN YOUR DREAMS?","ARE YOU DISTURBED BY YOUR DREAMS?"
  89. 1940 [131]"HOW DO YOU DO ... PLAESE STATE YOUR PROBLEM."
  90. 1950 [131]"YOU DON'T SEEM QUITE CERTAIN.","WHY THE UNCERTAIN TONE?"
  91. 1970 [131]"CAN'T YOU BE MORE POSITIVE?","YOU AREN'T SURE?","DON'T YOU KNOW?"
  92. 2000 [131]"WHY NO*","DON'T SAY NO IT'S ALWAYS SO NEGATIVE","WHY NOT?"
  93. 2030 [131]"ARE YOU SURE?","WHY NO?","WHY ARE YOU CONCERNED ABOUT MY*"
  94. 2060 [131]"WHAT ABOUT YOUR OWN*","CAN'T YOU THINK OF A SPECIFIC EXAMPLE?","WHEN?"
  95. 2090 [131]"WHAT ARE YOU THINKING OF?","REALLY, ALWAYS?"
  96. 2110 [131]"DO YOU REALLY THINK SO?","BUT YOU ARE NOT SURE YOU*"
  97. 2130 [131]"DO YOU DOUBT YOU*","IN WHAT WAY?","WHAT RESEMBLANCE DO YOU SEE?"
  98. 2160 [131]"WHAT DOES THE SIMILARITY SUGGEST TO YOU?"
  99. 2170 [131]"WHAT OTHER CONNECTIONS DO YOU SEE?"
  100. 2180 [131]"COULD THERE REALLY BE SOME CONNECTIONS?","HOW?"
  101. 2200 [131]"YOU SEEM QUITE POSITIVE.","ARE YOU SURE?","I SEE.","I UNDERSTAND."
  102. 2240 [131]"WHY DO YOU BRING UP THE TOPIC OF FRIENDS?","DO YOUR FRIENDS WORRY YOU?"
  103. 2260 [131]"DO YOUR FRIENDS PICK ON YOU?","ARE YOU SURE YOU HAVE ANY FRIENDS?"
  104. 2280 [131]"DO YOU IMPOSE ON YOUR FRIENDS?"
  105. 2290 [131]"PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU.","DO COMPUTERS WORRY YOU?"
  106. 2310 [131]"ARE YOU TALKING ABOUT ME IN PARTICULAR?"
  107. 2320 [131]"ARE YOU FRIGHTENED BY MACHINES?","WHY DO YOU MENTION COMPUTERS?"
  108. 2340 [131]"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"
  109. 2350 [131]"DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"
  110. 2360 [131]"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
  111. 2370 [131]"SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"
  112. 2380 [131]"WHAT DOES THAT SUGGEST TO YOU","I SEE","I'M NOT SURE I UNDERSTAND YOU."
  113. 2410 [131]"COME COME ELUCIDATE YOUR THOUGHTS","CAN YOU ELABORATE ON THAT?"
  114. 2430 [131]"THAT IS QUITE INTERESTING.","WHY DO YOU HAVE PROBLEMS WITH MONEY?"
  115. 2450 [131]"DO YOU THINK MONEY IS EVERYTHING?"
  116. 2460 [131]"ARE YOU SURE THAT MONEY IS THE PROBLEM?"
  117. 2470 [131]"I THINK WE WANT TO TALK ABOUT YOU, NOT  ABOUT ME","WHATS ABOUT ME?"
  118. 2490 [131]"WHY DO YOU ALWAYS BRING UP MY NAME?"
  119. 2530 [131]1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
  120. 2540 [131]40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
  121. 2550 [131]76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7
  122.